home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magic Disk 64
/
Magic_Disk_64_90-04_1990_-_de_Side_A.d64
/
[u] saven
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
741b
|
34 lines
1 rem unterprogramm zum saven von
2 rem beliebigen speicherbereichen.
3 rem a1 = ab speicheradr.a1
4 rem a2 = bis speicheradr. a2
5 rem n$ = filename
6 :
7 a1=36864:a2=40959
8 n$="filename"
9 :
10 rem berechnung des lo-und hi wertes
11 rem von a1 und a2. :
12 y1=int(a1/256):x1=a1-(y1*256)
13 y2=int(a2/256):x2=a2-(y2*256)
14 :
15 rem filename an kernalroutine. kein
16 rem komma zwischen sys und name!
17 :
18 sys57812 n$,8
19 :
20 rem lo-und hi werte an routine. :
21 poke193,x1:poke194,y1:rem start
22 poke174,x2:poke175,y2:rem end
23 :
24 rem saveroutine starten.
25 :
26 sys62954
27 :
28 :
29 :
30 rem die daten von adresse a1-a2
31 rem sind nun auf disk gesichert.
32 :
33 rem nicht starten. demo!!!